home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / util / wb / Gurus2000_1807.lha / Gurus2000 / Install < prev    next >
Encoding:
Text File  |  2000-03-05  |  3.0 KB  |  111 lines
  1. ; $VER: Install Gurus2000
  2. ; © by Demon 2000
  3.  
  4. (complete 0)
  5.  
  6. (set #Language (askchoice (prompt "Gurus2000") (help (cat @askchoice-help))
  7. (default 0) (choices "Deutsch" "English")) )
  8.  
  9. (if (= #language 0)
  10. ((set #welcome
  11. (cat "\n\n\nHerzlich willkommen beim Gurus2000 - Installer\n\n"
  12. "Dieser Installer installiert Gurus2000 auf deinen Amiga\n\n"
  13. "(Bitte alte Version vorher löschen)\n\n\n"
  14. "Gurus2000  © by Demon 2000"))
  15. (set #choose-text
  16. (cat "Wähle das Verzeichnis wohin Gurus2000 installiert werden soll. Ein Verzeichnis namens Gurus2000 wird dort angelegt."))
  17. (set #choose-icons
  18. (cat "Welche Icons sollen installiert werden?"))
  19. (set #choose-html
  20. (cat "Wähle deinen liebsten HTML-Reader:"))
  21. (set #choose-pic
  22. (cat "Wähle deinen liebsten Bildanzeiger:"))
  23. (set #exit
  24. (cat "\n\nViel Spaß mit Gurus2000")) ))
  25.  
  26. (if (= #language 1)
  27. ((set #welcome
  28. (cat "\n\n\nWelcome to the Gurus2000 - installer\n\n"
  29. "This installer will install Gurus2000 on your Amiga\n\n"
  30. "(Please delete previous version)\n\n\n"
  31. "Gurus2000  © by Demon 2000"))
  32. (set #choose-text
  33. (cat "Choose the destination drawer for the Gurus2000 archive. A directory called Gurus2000 will be created there."))
  34. (set #choose-icons
  35. (cat "Which icons should be installed?"))
  36. (set #choose-html
  37. (cat "Choose your favourite HTML reader:"))
  38. (set #choose-pic
  39. (cat "Choose your favourite picture viewer:"))
  40. (set #exit
  41. (cat "\n\nHave fun with Gurus2000")) ))
  42.  
  43. ;----------------------------------------
  44.  
  45. (message #welcome)
  46.  
  47. (welcome)
  48.  
  49. (set @default "SYS:")
  50. (set @default (askdir (prompt #choose-text) (help (cat @askdir-help)) (default @default)) )
  51.  
  52. (delete (tackon @default "gurus/data/#?"))
  53. (delete (tackon @default "gurus/#?"))
  54. (delete (tackon @default "gurus/"))
  55. (delete (tackon @default "gurus.info"))
  56. (delete (tackon @default "gurus9#?/data/#?"))
  57. (delete (tackon @default "gurus9#?/brushes/#?"))
  58. (delete (tackon @default "gurus9#?/#?"))
  59. (delete (tackon @default "gurus9#?"))
  60. (delete (tackon @default "gurus2000/data/#?"))
  61. (delete (tackon @default "gurus2000/#?"))
  62. (delete (tackon @default "gurus2000"))
  63.  
  64. (complete 1)
  65.  
  66. ;----------------------------------------
  67.  
  68. (copyfiles (source ".inf") (dest @default) (newname "Gurus2000.info"))
  69.  
  70. (makedir @default)
  71.  
  72. (set @default (tackon @default "Gurus2000"))
  73.  
  74. (complete 2)
  75.  
  76. ;----------------------------------------
  77.  
  78. (if (= #Language 0)
  79. ((copyfiles (source "deutsch") (dest @default) (pattern "#?")) ))
  80.  
  81. (if (= #Language 1)
  82. ((copyfiles (source "english") (dest @default) (pattern "#?")) ))
  83.  
  84. (complete 80)
  85.  
  86. ;----------------------------------------
  87.  
  88. (copyfiles (source "!") (dest @default) (pattern "#?"))
  89.  
  90. (complete 96)
  91.  
  92. ;----------------------------------------
  93.  
  94. (set @tthtml (askfile (prompt #choose-html) (help (cat @askfile-help)) (default "sys:")) )
  95.  
  96. (tooltype (dest (tackon @default "Gurus2000.html")) (setdefaulttool @tthtml))
  97.  
  98. (complete 98)
  99.  
  100. ;----------------------------------------
  101.  
  102. (set @pic (askfile (prompt #choose-pic) (help (cat @askfile-help)) (default "c:")) )
  103.  
  104. (copyfiles (source @pic) (dest (tackon @default "data/")) (newname "V"))
  105.  
  106. (complete 100)
  107.  
  108. ;----------------------------------------
  109.  
  110. (EXIT #exit (quiet))
  111.